home *** CD-ROM | disk | FTP | other *** search
/ Software 2000 / Software 2000 Volume 1 (Disc 2 of 2).iso / c64-games.disk / wloo.d64 / death-valley (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1995-03-03  |  767 b   |  24 lines
  1. 10 PRINT"[147]64 VALLEY OF DEATH"
  2. 15 POKE53280,6:POKE53281,0
  3. 20 DATA 000,195,000,003,255,192,015,255
  4. 30 DATA240,063,255,252,063,255,252,063
  5. 40 DATA255,252,063,255,252,015,255,240
  6. 50 DATA015,195,240,015,195,240,003,000
  7. 60 DATA192,003,000,192,000,195,000,000
  8. 70 DATA195,000,000,255,000,000,255,000
  9. 80 DATA000,060,000,000,060,000
  10. 90 FORJ=896TO948:READK:POKEJ,K:NEXT
  11. 100 FORJ=1TO900:NEXT:V=53248:D=10:G$="I         I":TI$="000000"
  12. 110 POKE2040,14:POKEV,140:POKEV+1,75:POKEV+39,7:POKEV+21,1
  13. 120 IFPEEK(V+31)=1THEN120
  14. 130 LETA=INT(RND(1)*3-1):D=D+A
  15. 140 IFD<5THEND=D+1
  16. 150 IFD>15THEND=D-1
  17. 160 PRINTTAB(D);G$:IFTI$="000040"THEN220
  18. 170 R=PEEK(56320)
  19. 180 H=SGN(RAND4)-SGN(RAND8)
  20. 190 POKEV,PEEK(V)+H
  21. 200 IFPEEK(V+31)=0THEN130
  22. 210 PRINT"YOU HAVE CRASHED!!":FORX=1TO1500:NEXT:PRINT"[147]":POKEV,0:END
  23. 220 PRINT"YOU HAVE SUCCEEDED!":FORX=1TO1500:NEXT:PRINT"[147]":POKEV,0:END
  24.